home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #3 / K-CD-3-2002.ISO / K-CS.DCR / 00112_Hilite 2, hop ved mus.ls < prev    next >
Encoding:
Text File  |  2002-01-14  |  1.2 KB  |  47 lines
  1. property MouseCommand, MouseCommand2
  2. global CurrentStep
  3.  
  4. on new me
  5.   set the visible of sprite the currentSpriteNum to 1
  6.   set the visible of sprite (the currentSpriteNum + 1) to 0
  7.   set the visible of sprite (the currentSpriteNum + 2) to 0
  8. end
  9.  
  10. on mouseEnter me
  11.   set the visible of sprite (the currentSpriteNum + 1) to 1
  12.   set the visible of sprite (the currentSpriteNum + 2) to 1
  13. end
  14.  
  15. on mouseLeave me
  16.   set the visible of sprite (the currentSpriteNum + 1) to 0
  17.   set the visible of sprite (the currentSpriteNum + 2) to 0
  18. end
  19.  
  20. on mouseDown
  21. end
  22.  
  23. on mouseUp
  24.   if voidp(MouseCommand) then
  25.     set MouseCommand to "beep"
  26.   end if
  27.   if voidp(MouseCommand2) then
  28.     set MouseCommand2 to "beep"
  29.   end if
  30.   if CurrentStep = 0 then
  31.     do(MouseCommand)
  32.   else
  33.     if CurrentStep = 1 then
  34.       do(MouseCommand2)
  35.     end if
  36.   end if
  37. end
  38.  
  39. on getBehaviorDescription
  40.   return "Hilite the next two sprites on the stage. On mouseclick, jump to an appropriate handler. (This is a specialized behaviour for emulating sliders)."
  41. end
  42.  
  43. on getPropertyDescriptionList
  44.   set p_list to [#MouseCommand: [#format: #string, #comment: "On mouseclick execute this", #default: "beep"], #MouseCommand2: [#format: #string, #comment: "On mouseclick execute this", #default: "beep"]]
  45.   return p_list
  46. end
  47.